home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / tool chest / development kits / mpw related / dts mpw goodies / projlistmenu < prev    next >
Encoding:
Text File  |  1990-09-14  |  327 b   |  14 lines
  1. Set Exit 0
  2. DeleteMenu ProjList ≥ Dev:Null > Dev:Null
  3.  
  4. Set ProjectNameList "`MountProject -pp -s -r | Sort -l`"
  5.  
  6. for i in {ProjectNameList}
  7.     AddMenu ProjList "{i}" "Set ProjName ∂"{i}∂"; ∂
  8.         Execute SetProject; ∂
  9.         ( Evaluate "{i}" =~ /([a-zA-Z0-9_. ]+∂∫)*([¬∂∫]+)®1∂∫/ ) ∑ Dev:Null; ∂
  10.         Set Program ∂"∂{®1∂}∂""
  11. end
  12.  
  13. Set Exit 1
  14.